home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / mapsrc.lha / macros / readkey < prev    next >
Encoding:
Text File  |  1980-02-19  |  229 b   |  13 lines
  1.  
  2.  
  3. readkey:    macro        ;reads a key and returns it into D0
  4.  
  5.     lea keybuff(a5),a0 ;-If error, insert keybuff into list.
  6.     move.l a0,d2
  7.     move.l #2,d3
  8.     move.l conbase(a5),d1
  9.     move.l dosbase(a5),a6
  10.     jsr -42(a6)
  11.     move.b keybuff(a5),d0
  12.     endm
  13.